100 REM ************************
110 REM *                      *
120 REM *     'NOTLANDUNG'     *
130 REM ************************
140 REM
150 REM *SPRITE-REGISTER AUF 0 SETZEN*
160 FORX=53248TO53263:POKEX,0:NEXTX
170 GOSUB2020:REM ***TITEL***
180 POKE53265,PEEK(53265)AND239:REM BILDSCHIRM WEGBLENDEN
190 GOSUB2280:REM ***LANDSCHAFT***
200 V=53248:S=54272
210 REM *** SONNE ***
220 FORI8=12736TO12798:READQ8:POKEI8,Q8:NEXT
230 POKE2047,199:REM ZEIGER
240 POKEV+21,128:REM SPR.EINSCH.
250 POKEV+27,128:REM HINTERGR.PRIORIT.
260 POKEV+46,8  :REM FARBE
270 POKEV+14,72:REM X-POS.
280 POKEV+15,98:REM Y-POS.
290 FORBR=1TO350:NEXTBR
300 POKE53265,PEEK(53265)OR16:REM BILDSCHIRM ZURUECKSETZEN
310 REM **  LANDUNG**
320 FORI=12288TO12350:READQ:POKEI,Q:NEXT
330 FORI6=12608TO12670:READQ6:POKEI6,Q6:NEXTI6
340 FORI7=12672TO12734:READQ7:POKEI7,Q7:NEXTI7
350 POKE2040,192:REM ZEIGER SETZEN
360 POKEV+21,129:REM SPRITE EINSCHALTEN
370 POKEV+29,1:REM IN X-RICHT.VERGR.
380 POKEV+39,8:REM SPRITE-FARBE
390 POKEV+28,1:REM FARBMODUS SETZEN
400 POKEV+37,1:REM 1.FARBE
410 POKEV+38,3:REM 2.FARBE
420 POKEV,150:REM SPRITE X-POS.
430 FORL=STOS+24:POKEL,0:NEXTL
440 FORK=7TO24:READX:POKES+K,X:NEXTK
450 POKES+11,65:POKES+18,65
460 POKES+5,9:POKES+6,2
470 FORI=35TO157
480 POKES+5,0
490 POKES+1,6 :REM TONHOEHE
500 POKES,177:REM NIED.FREQUENZ
510 POKES+4,65 :REM RECHTECK
520 POKES+4,32 :REM RECHTECK AUSLOESEN
530 POKEV+1,I:REM SPRITE Y-POS.
540 POKE12294,5:POKE12295,81:POKE12296,84:REM ROTOR-DREH-EFFEKT M.ZEILE 230
550 FOR BR=1TO5 :NEXTBR
560 POKE12294,21:POKE12295,85:POKE12296,85
570 NEXTI
580 REM ***ROTOR LAEUFT NACH***
590 POKEV,150:POKEV+1,157
600 POKES+1,4:POKES,177
610 FORI=1TO15
620 POKES+5,0:POKES+4,65:POKES+4,32
630 POKE12294,5:POKE12295,81:POKE12296,84
640 FOR BR=1TO65:NEXTBR
650 POKE12294,21:POKE12295,85:POKE12296,85
660 NEXTI
670 POKES+24,22
680 POKES,220:POKES+5,0 :POKES+6,180
690 FORI1=12352TO12414:READQ1:POKEI1,Q1:NEXT
700 FORI2=12416TO12478:READQ2:POKEI2,Q2:NEXT
710 POKEV+21,131
720 POKEV+40,0
730 POKEV+3,157
740 P=193
750 FORI=165TO219STEP3
760 POKEV+2,I
770 POKE2041,P:POKES+1,R:POKES+4,65:POKES+4,64
780 P=P+1:IFP>194THENP=193
790 IFI=219THEN810
800 FORBR=1TO50:NEXTBR
810 NEXTI
820 FORI1=12352TO12414:READQ1:POKEI1,Q1:NEXT
830 POKE2041,193
840 POKEV+21,131:REM SPR.1,3 EINSCH.
850 POKEV+40,0
860 POKEV+3,157:REM Y-POS.
870 POKEV+2,219:REM X-POS.
880 FORBR=1TO150:NEXTBR
890 FORI3=12480TO12542:READQ3:POKEI3,Q3:NEXT
900 POKE2043,195
910 POKEV+21,139:REM SPR.1,3,4 EINSCH.
920 POKEV+42,7
930 POKEV+7,168:REM Y-POS.
940 POKEV+6,238:REM X-POS.
950 POKE2045,197
960 POKEV+21,171
970 POKEV+44,7
980 POKEV+11,180:REM Y-POS.
990 POKEV+10,249:REM X-POS.
1000 P=197
1010 POKES+6,200:POKES+5,0
1020 FORI=1TO80
1030 POKES,9:POKES+1,I:POKES+4,129
1040 POKE2045,P
1050 P=P+1:IFP>198THENP=197
1060 FORBR=1TO10:NEXTBR
1070 NEXTI:POKES+4,0
1080 FORY=12480TO12542:POKEY,0:NEXTY
1090 POKEV+21,PEEK(V+21)AND255-40:
1100 REM ***MANN NACH LINKS***
1110 POKES,220:POKES+5,0:POKES+6,180
1120 FORI1=12352TO12414:READQ1:POKEI1,Q1:NEXT
1130 FORI2=12416TO12478:READQ2:POKEI2,Q2:NEXT
1140 POKEV+21,131
1150 POKEV+40,0
1160 POKEV+3,157
1170 P=193
1180 FORI=219TO165 STEP-3
1190 POKEV+2,I
1200 POKE2041,P:POKES+1,R:POKES+4,65:POKES+4,64
1210 P=P+1:IFP>194THENP=193
1220 FORBR=1TO50:NEXTBR
1230 NEXTI
1240 POKE2040,192:REM ZEIGER SETZEN
1250 POKEV+21,129:REM SPR.1 EINSCH.
1260 FORBR=1TO800:NEXTBR
1270 REM *ROTOR BEGINNT ZU DREHEN*
1280 POKEV,150:POKEV+1,157
1290 POKES+1,4:POKES,177:POKES+24,31:POKES+6,2
1300 FORI=1TO15
1310 POKES+5,0:POKES+4,65:POKES+4,32
1320 POKE 12294,5:POKE12295,81:POKE12296,84
1330 FORBR=1TO50:NEXT BR
1340 POKE 12294,21:POKE12295,85:POKE12296,85
1350 NEXTI
1360 REM ***HELIKOPTER-START***
1370 POKES+1,6:POKES,177
1380 FORI=157TO52 STEP-1
1390 POKES+5,0:POKES+4,65:POKES+4,32
1400 POKEV,307-I :REM X-POS.
1410 POKEV+1,I:REM Y-POS.
1420 POKE12294,5:POKE12295,81:POKE12296,84:REM ROTOR-DREH-EFFEKT M.ZEILE 1040
1430 POKE12294,21:POKE12295,85:POKE12296,85
1440 NEXTI
1450 REM ***RECHTE X-POS.***
1460 POKES+1,6:POKES,177
1470 FORY=50TO80
1480 IFY<65THEN1500
1490 POKES+24,96-Y:REM MOTOR LEISER
1500 POKES+5,0:POKES+4,65:POKES+4,32
1510 POKEV+16,1
1520 POKEV+0,Y-50:REM X-POS.
1530 POKEV+1,101-Y:REM Y-POS.
1540 POKE12294,5:POKE12295,81:POKE12296,84:REM ROTOR-DREHEFFEKT M.ZEILE 1120
1550 POKE12294,21:POKE12295,85:POKE12296,85
1560 NEXTY
1570 POKEV+16,0:POKEV+0,0
1580 REM *** END-ZEICHEN 1.TEIL ***
1590 FORI=12288TO12350:READQ:POKEI,Q:NEXTI
1600 FORI1=12352TO12414:READQ1:POKEI1,Q1:NEXTI1
1610 FORI2=12416TO12478:READQ2:POKEI2,Q2:NEXTI2
1620 REM *** SONNE NACH UNTEN ***
1630 FORI=STOS+24:POKEI,0:NEXT
1640 POKES+24,10:POKES+5,10:POKES+6,100:POKES+3,100:POKES+2,100
1650 FORI=72TO39STEP-1
1660 READ HF,LF,DR
1670 POKES+1,HF:POKES,LF
1680 POKES+4,65
1690 POKEV+14,I:POKEV+15,170-I
1700 FORBR=1TODR:NEXTBR
1710 POKES+4,33
1720 NEXTI
1730 FORI=STOS+24:POKEI,0:NEXT
1740 REM *SPRITE-REGISTER AUF 0 SETZEN*
1750 FORX=53248TO53263:POKEX,0:NEXTX
1760 REM
1770 REM *** END-ZEICHEN 2.TEIL ***          MIT ZEILEN 1141,1142,1143
1780 REM
1790 FORI3=12480TO12542:READQ3:POKEI3,Q3:NEXTI3
1800 FORI4=12544TO12606:READQ4:POKEI4,Q4:NEXTI4
1810 FORI5=12608TO12670:READQ5:POKEI5,Q5:NEXTI5
1820 FORI6=12672TO12734:READQ6:POKEI6,Q6:NEXTI6
1830 POKEV+28,0:REM MEHRFARBMOD.AUF 0
1840 POKEV+39,1
1850 POKEV+0,150
1860 POKEV+1,110
1870 POKEV+29,1
1880 FORJ=0TO6
1890 POKEV+21,1
1900 POKE2040,192+J
1910 FORBR=1TO30:NEXTBR
1920 NEXTJ
1930 FORBR=1TO1000:NEXTBR
1940 FORK=6TO0 STEP-1
1950 POKE2040,192+K
1960 FORBR=1TO30:NEXTBR
1970 NEXTK
1980 POKEV+21,0
1990 FORBR=1TO400:NEXTBR
2000 GOTO1880
2010 END
2020 PRINT"[147]":REM ***TITEL***
2030 POKE53280,2 :POKE53281,6
2040 FORBR=1TO800:NEXTBR
2050 S=54272
2060 FORI=STOS+24:POKEI,0:NEXTI
2070 POKES+24,10:POKES+5,12*16+0:POKES+6,15*16+10
2080 FORA=0TO39
2090 POKES+1,A+15:POKES,226:POKES+4,33
2100 POKE1024+A+40*16,64
2110 POKE55296+A+40*16,7
2120 NEXTA
2130 FORI=0TO65
2140 POKES+1,65-I:POKES,226:POKES+4,129
2150 IFI>24THEN2180
2160 POKE1024+10+40*I,66
2170 POKE55296+10+40*I,1
2180 NEXTI
2190 POKES+4,0
2200 FORBR=1TO500:NEXTBR
2210 PRINT"[159]'NOTLANDUNG'"
2220 FORBR=1TO700:NEXTBR
2230 PRINT"[155]   VON R.SCHLEEWEISS"
2240 FORBR=1TO500:NEXTBR
2250 PRINT"[129]    MUSIK VON HARDY"
2260 FORBR=1TO2000:NEXTBR
2270 RETURN
2280 PRINT"[147]":REM ***LANDSCHAFT***
2290 POKE53280,2:POKE53281,14
2300 PRINT"[149][169][223]"
2310 PRINT" [144][223][149] [223]"
2320 PRINT"[144]    [149][223]"
2330 PRINT"[144]     [149]  [223]"
2340 PRINT"[144]  [149]  [144]  [223][149] [223]"
2350 PRINT" [144]    [149]    [223]"
2360 PRINT"  [144]      [149]    [223]";
2370 PRINT"[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
2380 PRINT"[163][163] [163][163][163][163][163][163] [163][163]";
2390 PRINT"[152][169]            [223][146]";
2400 PRINT"  [163][163][163][163][163][163][163] [163][163][163]"
2410 PRINT"  [163][163][163][163] [163][163][163] [152][169]              [223][146]   [163][163][163] [163][163][163][163]"
2420 PRINT" [163][163][163][163]   [163]  [155][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][163][163]   [163][163][163][163][163]"
2430 PRINT"[163][163][163][163][163][163][163]   [163][163][163] [163][163][163][163][163] [163][163][163][163][163][163][163][163]   [163][163][163][163]  [163][163][163]";
2440 PRINT:PRINT"   [163][163][163][163][163][163][163]     [163][163][163][163]   [163][163][163][163][163][163][163][163][163]  [163][163][163][163][163]"
2450 PRINT:PRINT"[163][163][163][163][163][163][160]   [163][163][163][163][163][163][163][163]      [163][163][163][163][163][163][163][163][163][163][163][163][163]"
2460 RETURN
2470 DATA 0,62,0,0,255,192,3,255,224,7,255,240
2480 DATA 15,255,248,31,255,252,31,255,252,63,255,252
2490 DATA 63,255,254,63,255,254,63,255,254,63,255,254
2500 DATA 63,255,254,31,255,252,31,255,252,31,255,252
2510 DATA 15,255,248,7,255,240,3,255,224
2520 DATA 1,255,192,0,62,0,0,0,0,0,0,0,21,85,85
2530 DATA0,4,0,0,12,0,64,63,0,64,255,0,255,250,0
2540 DATA255,242,128,64,242,192,64,240,192,0,63,192
2550 DATA0,63,0,0,12,0,0,4,16,1,85,64,0,,,,,,,,,,,,,,
2560 DATA 0,0,0,0,0,0,0,0,0,0,0,0,2,0,128
2570 DATA 0,68,0
2580 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2590 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,130,0
2600 DATA 0,0,0,1,17,0
2610 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2620 DATA 12,2,0,4,0,0,192,16,2,0,6,0,0,64,0,5,14,31
2630 DATA 0,0,0,0,0,0,0,0,0,0,0,0
2640 DATA 0,12,0,0,14,0,0,8,0,0,31,192,0,40,0,0,72,0
2650 DATA 0,136,0,0,8,0,0,24,0,0,36,0
2660 DATA 0,66,128,0,33,0,,,,,,,,,,,,,,,,0,0,0
2670 DATA0,0,0,0,0,0,0,0,0,0,12,0,0,14,0
2680 DATA0,8,0,0,28,0,0,42,0,0,25,0,0,24,128,0,8,0
2690 DATA0,8,0,0,8,0,0,8,0,0,12,0,0,0,0,0,0,0
2700 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2710 DATA 0,0,0,0,12,0,0,14,0,0,8,0,0,24,0,0,44,0
2720 DATA 0,78,0,0,134,0,0,7,128,0,4,0,0,8,0,0,8,0
2730 DATA 0,12,0,,,,,,,,,,,,,,,,146,0,0
2740 DATA 0,32,0 ,0,4,0,0,1,0,0,0,0,0,0,64,0,0,0
2750 DATA 0,0,0,0,0,16,0,0,0,0,0,0,0,0,4,0,0,0
2760 DATA0,0,0,0,0,2,,,,,,,,,,,,,,,,,,,0,0,0
2770 DATA0,0,0 ,0,0,0 , 0,0,0, 0,24,0, 0,56,0
2780 DATA0,8,0, 0,28,0, 0,26,0, 0,25,0,0,24,128, 0,24,0
2790 DATA0,8,0, 0,8,0, 0,8,0, 0,24,0, ,,,,,,,,,,,,,,, 0,0,0
2800 DATA0,0,0, 0,0,0, 0,0,0, 0,24,0, 0,56,0
2810 DATA0,8,0, 1,255,192, 0,8,0, 0,8,0, 0,8,0, 0,8,0, 0,12,0
2820 DATA0,18,0, 0,161,0, 0,66,0, ,,,,,,,,,,,,,,
2830 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,, ,42,
2840 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2850 DATA,,,,,,,,,,,,,,,,,,,,,,,,,42,,,42,
2860 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2870 DATA,,,,,,,,,,,,,,,,,,,,,,,,,221,128,,221,128
2880 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2890 DATA13,10,250,9,196,500,14,162,100,13,10,100
2900 DATA12,78,100,13,10,250,9,196,500,14,162,100,13,10,100
2910 DATA12,78,100,13,10,250,14,162,100,16,109,100
2920 DATA17,103,100,16,109,250,14,162,125,19,137,750
2930 DATA21,237,250,21,237,125,17,103,250,14,162,500
2940 DATA19,137,250,19,137,125,16,109,250,13,10,500
2950 DATA13,10,125,14,162,125,16,109,250,14,162,125
2960 DATA13,10,125,14,162,250,13,10,125,12,78,125,13,10,750
2970 DATA,,,,,,,,,,,,,,,,,,,,,,,
2980 DATA1,213,128,1,157,64,1,213,128
2990 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,,,,,
3000 DATA7,162,224,4,50,144,7,42,144,4,38,144,7,162,224
3010 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,,
3020 DATA31,65,120,16,97,68,16,81,68,30,73,68,16,69,68,16,67,68,31,65,120
3030 DATA,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,
3040 DATA126,65,62,64,65,33,64,97,33,64,81,33,124,73,33
3050 DATA64,69,33,64,67,33,64,65,33,126,65,62
3060 DATA,,,,,,,,,,,,,,,,,,,,
3070 READA$:PRINTA$:POKE198,0:WAIT198,1:GOTO3070